home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbexwait / execwait.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.2 KB  |  40 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16. Sub Form_click ()
  17.   Print "Copying a file ..."
  18.   ShellAndWait ("\command.com /c copy \autoexec.bat \x.x")
  19.   Kill ("\x.x")   'Note \x.x will not exist until
  20.                   'previous ShellAndWait has finished
  21.   Print
  22.   Print "       ShellAndWait was written by: "
  23.   Print
  24.   Print "       Mike Caughran  [71034,2371]"
  25.   Print "       Cedar Island Software"
  26.   Print "       9018 Division St."
  27.   Print "       Juneau, Alaska 99801"
  28.   Print
  29.   Print
  30.   Print "       Be sure to download Cedar Island Link"
  31.   Print
  32.   Print "  A top quality com program which supports all major filetransfer protocols."
  33.   Print "  Cedar Island Link is in GO IBMCOM section 3 as CILINK.ZIP"
  34. End Sub
  35. Sub ShellAndWait (CommandString$)
  36.   ID% = Shell(CommandString$, 3)
  37.     X% = DoEvents()
  38.   Loop Until GetModuleUsage(ID%) = 0
  39. End Sub
  40.